object RichTextEditPropFm: TRichTextEditPropFm
  Left = 293
  Top = 230
  BorderIcons = [biSystemMenu]
  BorderStyle = bsToolWindow
  Caption = 'Rich text editor'
  ClientHeight = 273
  ClientWidth = 468
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBarPn: TPanel
    Left = 0
    Top = 0
    Width = 468
    Height = 32
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object BoldSb: TSpeedButton
      Left = 242
      Top = 4
      Width = 23
      Height = 23
      AllowAllUp = True
      GroupIndex = 10
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777777700000000
        7777777770007700077777777000770007777777700077000777777770000000
        7777777770007700077777777000770007777777700077000777777700000000
        7777777777777777777777777777777777777777777777777777}
      OnClick = BoldSbClick
    end
    object ItalicSb: TSpeedButton
      Left = 265
      Top = 4
      Width = 24
      Height = 23
      AllowAllUp = True
      GroupIndex = 11
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777777777777777777770000007777
        7777777700077777777777777000777777777777770007777777777777700077
        7777777777770007777777777777700077777777777777000777777777777000
        0007777777777777777777777777777777777777777777777777}
      OnClick = ItalicSbClick
    end
    object UnderlineSb: TSpeedButton
      Left = 289
      Top = 4
      Width = 23
      Height = 23
      AllowAllUp = True
      GroupIndex = 12
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777770000000007777777777777777777777777000007
        7777777770077700777777777007770077777777700777007777777770077700
        7777777770077700777777777007770077777777700777007777777700007000
        0777777777777777777777777777777777777777777777777777}
      OnClick = UnderlineSbClick
    end
    object LeftAlignSb: TSpeedButton
      Left = 362
      Top = 4
      Width = 23
      Height = 23
      GroupIndex = 20
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777700000000000777777777777777
        7777770000000077777777777777777777777700000000000777777777777777
        7777770000000077777777777777777777777700000000000777777777777777
        7777770000000077777777777777777777777777777777777777}
      OnClick = LeftAlignSbClick
    end
    object CenterAlignSb: TSpeedButton
      Left = 385
      Top = 4
      Width = 23
      Height = 23
      GroupIndex = 20
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777700000000000777777777777777
        7777777770000077777777777777777777777700000000000777777777777777
        7777777700000007777777777777777777777700000000000777777777777777
        7777777770000077777777777777777777777777777777777777}
      OnClick = CenterAlignSbClick
    end
    object RightAlignSb: TSpeedButton
      Left = 408
      Top = 4
      Width = 23
      Height = 23
      GroupIndex = 20
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777777777700000000000777777777777777
        7777777770000000077777777777777777777700000000000777777777777777
        7777777770000000077777777777777777777700000000000777777777777777
        7777777770000000077777777777777777777777777777777777}
      OnClick = RightAlignSbClick
    end
    object BulletSb: TSpeedButton
      Left = 438
      Top = 4
      Width = 23
      Height = 23
      AllowAllUp = True
      GroupIndex = 30
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777774447777777777777444770000000077744477777777
        7777777777777777777777777777777777777444777777777777744477000000
        0077744477777777777777777777777777777777777777777777744477777777
        7777744477000000007774447777777777777777777777777777}
      OnClick = BulletSbClick
    end
    object OpenSb: TSpeedButton
      Left = 8
      Top = 4
      Width = 23
      Height = 23
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        77777777777777777777000000000007777700333333333077770B0333333333
        07770FBF3333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07
        77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777
        7007777777770777070777777777700077777777777777777777}
      OnClick = OpenSbClick
    end
    object SaveSb: TSpeedButton
      Left = 31
      Top = 4
      Width = 23
      Height = 23
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000000000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777770000000000000770330000007703077033000000770307703300000077
        0307703300000000030770333333333333077033000000003307703077777777
        0307703077777777030770307777777703077030777777770307703077777777
        0007703077777777070770000000000000077777777777777777}
      OnClick = SaveSbClick
    end
    object FontNameCb: TComboBox
      Left = 64
      Top = 5
      Width = 117
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      Sorted = True
      TabOrder = 0
      OnChange = FontNameCbChange
      OnKeyPress = FontAndColorNameCbKeyPress
    end
    object FontSizeCb: TComboBox
      Left = 188
      Top = 5
      Width = 45
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      OnClick = FontSizeCbClick
      OnExit = FontSizeCbClick
      OnKeyPress = FontSizeCbKeyPress
    end
    object FontColorCb: TComboBox
      Left = 320
      Top = 5
      Width = 34
      Height = 22
      Style = csOwnerDrawFixed
      DropDownCount = 17
      Font.Color = clWindowText
      Font.Height = -8
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ItemHeight = 16
      ParentFont = False
      TabOrder = 2
      OnChange = FontColorCbChange
      OnDrawItem = FontColorCbDrawItem
      OnKeyPress = FontAndColorNameCbKeyPress
    end
  end
  object MainRe: TEPRichEdit
    Left = 8
    Top = 32
    Width = 453
    Height = 201
    HideSelection = False
    RichText = 
      '{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fnil MS Sans Serif;}{\f' +
      '1\fnil\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fnil Ari' +
      'al;}{\f4\fswiss System;}}'#13#10'{\colortbl\red0\green0\blue0;}'#13#10'\defl' +
      'ang1033\pard\plain\f0\fs16 '#13#10'\par }'#13#10#0
    ScrollBars = ssBoth
    TabOrder = 0
    OnSelectionChange = MainReSelectionChange
  end
  object OKBt: TButton
    Left = 304
    Top = 244
    Width = 75
    Height = 23
    Caption = 'OK'
    ModalResult = 1
    TabOrder = 2
  end
  object CancelBt: TButton
    Left = 386
    Top = 244
    Width = 75
    Height = 23
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 3
  end
  object OpenDg: TOpenDialog
    DefaultExt = '*.rtf'
    FileEditStyle = fsEdit
    Filter = 
      'Rich Text Files (*.RTF)|*.RTF|Text Files (*.TXT)|*.TXT|All Files' +
      ' (*.*)|*.*'
    Options = [ofHideReadOnly, ofNoChangeDir, ofPathMustExist, ofFileMustExist]
    Left = 12
    Top = 40
  end
  object SaveDg: TSaveDialog
    DefaultExt = '*.rtf'
    FileEditStyle = fsEdit
    Filter = 
      'Rich Text Files (*.RTF)|*.RTF|Text Files (*.TXT)|*.TXT|All Files' +
      ' (*.*)|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir, ofPathMustExist]
    Left = 12
    Top = 72
  end
  object MainMenu1: TMainMenu
    Left = 4
    Top = 240
    object MainMn: TMenuItem
      Caption = 'Main'
      ShortCut = 0
      Visible = False
      object BoldMn: TMenuItem
        Caption = 'Bold'
        ShortCut = 16450
        OnClick = BoldMnClick
      end
      object ItalicMn: TMenuItem
        Caption = 'Italic'
        ShortCut = 16457
        OnClick = ItalicMnClick
      end
      object UnderlineMn: TMenuItem
        Caption = 'Underline'
        ShortCut = 16469
        OnClick = UnderlineMnClick
      end
    end
  end
end